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This is the Computers in Diplomacy zine published by Mark S. Keller, 
9536 Shumway Drive, Orangevale, CA 95662. Phone: (916) 988-7224 
Subs are on a sub balance basis. Issue price is currently $.30. 

> < 
This zine will attempt to be the source of informant ion about the use of 

computers in Diplomacy activities. It will be publishing letters, articles, and 
programs. 1*11 also be trying to collect information on what hardware and soft- 
ware each of you has. 

On this page there is a survey form to fill out. 

I don't have any programs in publishable form at the moment but 1*11 
print one anyway on page 2. Let me know the kind of programs you would like to 
see published. If you have any interesting Dip related programs, that you 
wouldn't mind sharing, send them in! 

This issue we have an article by Judy Winsome on Computerized Diplomacy. 

> < 
I have an 8K Commodore VIC-20 with one disk and an Epson MX-80 printer. 

My Dip related uses for it are: Word Processor for typing zines and some of my 
correspondence, Keeping mailing list with sub-balance and label printing 
capabilities, Cross— reference of players and games (still needs work), Bourse 
Adjudication, and a Dip Rating Calculator. In the future I would like to have a 
Dip adjudication program and perhaps a Dip playing program. 

Sur vev' s 

Computer (s) Owned: 



Tape: Yes No Disk: Yes No Printer: Yes No_ 

Dip Related Uses: j 



i-uture Dip Related Uses: 



Comments: 



Name: 
Address: 



Phone: 



5 rem bourse adjud 

10 input" 'print addr "; pr: input "1 i st disp"; Id: inpuf'of f disp";od-- ^fec^c f« * r zfcl r ». 
15 inpuf'new players";q*: if q$="y"theninput "how many";nn ^or e 
20 openl5,8, 15: open8, 8, 8, "boursel , s, r " n , p 

30 input#8,s* ( '* ^ uf ^ + ; l<? 

40 f ora=lto7: input #8, v (a) :readc$(a) • next \ -Cro/^ J 2.*^ corK-^ 

45 datacrowns, pounds, francs, marks, 1 ira, rubles, piastre \ ^/J, / or 

50 input#8,np:nn=nn+np:dimp*(nn) ,p (nn,7) , t (nn,7) :fora=ltonp \ '° r , ^ 

60 input#B,p*<a) J <^<-r""es 

70 rem / ^ f ; '<?s, 
80 f orb=lto7: input #8, p (a, b) : nextb, a: close8 
85 i -f np=nngotol 10 ~) . 

la 



90 f ora=np+l tonn : i nput "name " ; p$ (a ) r ffrfd «*y /lew chyerc, 
100 f orb=lto7:p (a, b) =1000: nextb, a ) 
110 np=nn: print "last season was: ";5$ 
120 input "this season"; s* 
140 -fora=ltonp 

150 print-player - ";p*(a) H ~ 4 ^ SeQSO „^ Ws* fc f''-s 
160 prinf'input transactions" ' 1 
170 tt=0:f orb=lto7 
180 print"";c* (b) ; : inputt 

190 ift<-500thenprint">500":gotol80 7 ^ (f 

200 if (-t) >p (a,b)thenprint"not enough" : gotol 80 J ' > 

210 t(a,b)=t 
220 tt=tt+t*v(b) 

230 nextb: if tt >. 005thenpri nt "buyi ng too much";tt; "":gotol60 - 
240 f orb=lto7:nc (b)=nc (b) +t (a, b ) : p (a, b) =p (a, b) +t (a, b) : nextb 
250 nexta 

260 prinf'input sc counts" : for a=lto7: pri nt ""; c* (a) ;: i nputsc (a> : nexta 
300 poke pr+l,ld:sys(pr) *~ <? r '^ er , on rv V *y<+e*<- . 

305 print"" SeA «r /32 t '""" & " fr"*- 

310 print" *4>hr "+chr* ( 102) +chr$ ( 1 12) +chr* (0) 5 ^ ^ f "" 

320 prints*" austrian english french german italian russian"; 
330 print" tur ki sh" : pri nt " crowns pounds francs marks lira rubles p 
iastre" ^ fc ea J, 

340 fora=ltonp 

350 printp*(a); ( T) l t L: 

360 forb=lto7:print" "t (a, b) ; : nex tb: pri nt r r 
370 nexta 

380 print : print "old price"; 

390 f ora=lto7:print" $"v (a) ; : if nc (a) <0thennc (a) =nc (a) +99 
395 nc'/.=nc (a) /100: v (a) =v (a) +nc%/100: nexta 
400 print:print"new price"; 

410 fora=lto7:print" $"v(a) ; :nexta:print:print" ~^ p ri „ + c 

redits net worth" C ^5 f 4jC 0 |\'os 

420 fora=ltonp V 
430 pri ntp* (a) ;: nw=0: cr=0: forb=lto7 \ ^ r g^:-f^ 

440 print" "p (a, b) ;: nw=nw+p (a, b) *v (b) : cr=cr+p (a, b) /100*sc (b ): nextb ^ 

450 print" "cr" *"nw 7 w ^4k 

460 nexta A r „ ; „ Ver-, o *?S-k»\ ^ 

500 pokepr+1 , od: sys (pr ) : pri nt : pr i nt "to update file - hit any key" 

510 geta*: if a*=""goto510 

520 open8,8,8, "3: boursel , s, w" . - , _ C\ A I iL 

530 print#8,s*:fora=lto7:print#8,v(a):next ( ^ r +e ^|«_t. ^ ^ 

540 print#8,np:f ora=ltonp:print#8,p*(a) ' 
550 forb=lto7:print#8,p(a,b) : nextb, a 
560 close8:print"al 1 done": end 

"eady. 
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COMPUTERIZED DIPLOMACY #1 



March 25, 1983 
by Judy Winsome 



So you think you want to be a computer programmer? You like to play 
Diplomacy and think your Apple II or TRS 80 will help you become the 
next Kathy Byrne or Dan Kuzinski? It's got to be easy, right? Wrong! 
At least it's not easy for me. 

I've toyed with the idea of developing a Diplomacy program for some 
time. Maybe, start with an adjudication program to make GMing a 
breeze, then move to a strategy program to help me play better, then 
end with a simulation version that I can play when I'm all alone or 
can't scrape up seven. It doesn't take long to discover that things 
are not all that simple. 

For example, there are seven players in a Diplomacy game, right? 
Wrong! At least not when playing by mail. You have standby players 
who may submit moves. Well then, you say, you can use operator 
judgment to get around that. OK then, two seasons a year? No, try 
five. Spring moves, summer retreats, Fall moves, Autumn retreats, 
Winter builds and removals. So what am I bitching about, 5 isn't much 
more than 2? But it keeps happening. Try to describe a province. 
Well, it has 1) a name (yeah, and several short versions of the name), 
2) adjoining provinces, 3) may or may not be a supply center, 4) is 
capable of being moved into by an army, a fleet or both — - WAIT, 
it's name may change if a fleet moves into it when a coast designation 
is required. 

So we quickly get mixed up with conditional attributes. Ugh! What 
genius has an algorithm for defining provinces, and forces? Perhaps 
some of you would like to try? Let's start with defining provinces and 
forces with the end in mind that moves can be adjudicated. Or maybe 
you'd like to describe what functions an adjudication program should 
have. For example: 

1. Maintain address lists of players 

2. Administrate standby players 

3. Retain previous positions 

4. Adjudicate moves and print results 

5. Produce supply center charts 

6. Keep track of centers by year by country by player 
And then describe the process to perform each function: 

1. Maintain address lists of players 

a. Store player addresses 

b. Add new player 

c. Change player's address information 

d. Delete player from list 

e. Produce list 
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And then describe what data is required for each function. For example 
under function 1 you need: 



Last name 
First name 
Street address 
City 
State 

Postal Code 
Country 



Now, what do you do if a person's address will change midway through a 
publishing cycle? Yeeech. And you wonder why computer types act 
weird? 



7wo Faces of Tomorrow 
Mark S. Keller 
9536 Shumway Drive 
Orangevale, CA 95662 
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